excel vba

Userform ve Nesneleri, Hücre Başvurusuyla Renklendirme


Excel Userformlarımızı ve üzerindeki nesneleri, çalışma sayfamızda kullandığımız şablon renklerine uygun bir şekilde düzenlemek isteyebiliriz. Userformumuzun renklerini, belirlediğimiz hücrelere doldurduğumuz renklerden alıyor olacak. Excel hücre rengi değişince otomatik olarak userformumuz ve üzerindeki nesneler de hızlı bir şekilde çalışma sayfamızla uyumlu renk paletiyle boyanacaktır... Alttaki Kodları Userformumuzun Initialize bölümüne yapıştırın ve formumuzun referans alacağı hücreleri renklerle doldurun. Alttaki Userform hücre başvurularını kendi sayfa ve hücrelerinize göre düzenlemeyi unutmayın... Esen Kalın... 
 Private Sub UserForm_Initialize()

Dim nesne As Control
For Each nesne In Me.Controls
If TypeName(nesne) = "TextBox" Then nesne.BackColor = Sheets("bilgiler").Range("l5").Interior.Color
If TypeName(nesne) = "Frame" Then nesne.BackColor = Sheets("bilgiler").Range("l4").Interior.Color
If TypeName(nesne) = "CommandButton" Then nesne.BackColor = Sheets("bilgiler").Range("l4").Interior.Color
Next
Me.BackColor = Sheets("bilgiler").Range("l4").Interior.Color

End Sub
DEVAMINI OKU

Tarihler arasına noktayı otomatik yazdırmak

Soru:Arkadaşlar Merhaba,
Bir soruna takıldım. Excelin kendi fonksiyonlarıyla uğraştım yapamadım.
Soru şu : A1 hücresine doğum yeri ve tarihi yazılacak. Örneğin; A1 hücresine “Bursa 01011970” yazılacak. (dikkat edilirse tarihler arasına nokta koymadım) Entere basıldığı an; “Bursa 01.01.1970” şeklinde olması gerekir. Yani noktayı kendiliğinden koyacak. Acaba bunu makroyla yapmak mümkün müdür?
NOT : Doğrudan hücre içerisine yazılacağı için excelin kendi formülü çözüm teşkil etmiyor.
Hepinize saygılarımı sunuyorum…
Cevap:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
Cancel = True 
ActiveCell.Replace What:=".", Replacement:="" 
ActiveCell.Value = Mid(ActiveCell, 1, Len(ActiveCell) - 9) & " " & Left(Right(Right(ActiveCell.Value, 8), 8), 2) & "." & Left(Right(Right(ActiveCell.Value, 8), 6), 2) & "." & Right(Right(ActiveCell.Value, 8), 4) 
End Sub
Kodlar: Bülent Öztürk
Görsel Olarak (hücrede tarih gibi görünür fakat biçim olarak sayıdır) bu işlemi ilgili hücrede iken ya da birden cük hücreyi seçtikten sonra Görsel olarak bu işlemi yapmak istiyorsanız ilgili hücrede iken (yada tüm sütunu seçerek);
Biçim>hücreler>sayı>isteğe uyarlanmış sekmelerinde tür kısmına; 
##\.##\.####
şeklinde yapıştırın.
Tarihler arasında işlem yaptığınızda, örneğin iki tarih arasındaki gün farkını hesaplamaya çalıştığınızda işlemin tarih formatında doğru sonuç döndürmesini için ilgili hücrede iken ya da birden cük hücreyi seçtikten sonra yine
Biçim>hücreler>sayı>isteğe uyarlanmış sekmelerinde tür kısmına; 
0#\.0#\.####
şeklinde yapıştırın. Ayrıca Bakınız...
DEVAMINI OKU

Yurtiçi Geçici Görev Yolluğu

Personellerin yurt içi geçici görev yolluklarını hazırlamak amacı ile hazırladığım bir program. Excele yeni başlayanları düşünerek mümkün olduğu kadar az formül kullanılarak daha ziyade kodlamalarla oluşturulmuş bir çalışmadır.

İndirmek için tıkla
DEVAMINI OKU

Combobox'taki değere göre diğer combobox'ların değişmesi

BU DOSYA İLE;
-İlk Açılır Kutudan Seçtiğiniz Kişilerin Yakınlarını diğer açılır kutulara (combobox lara getirebilirsiniz.)

-Sadece seçtiğiniz kişi ile ilgili diğer bilgilere zahmetsizce ulaşırsınız.
DEVAMINI OKU

Nesne Kütüphanelerinin eklenmesi veya çıkarılması

References iletişim kutusunu kullanarak nesne kütüphanelerini ekleyebilir ve çıkartabilirsiniz.

Nesne kütüphanelerini ekleyerek çalışacak ek nesneler kazanabilirsiniz; görmeniz veya kullanmanız gerekmeyen nesne kütüphanelerini çıkartarak da, VBA’in bir projenin kodunu derlerken çözmesi gereken nesne referansı sayısını azaltabilir ve bu şekilde daha hızlı çalışmasını sağlayabilirsiniz.
DEVAMINI OKU

Excel dosyasındaki istenmeyen sayfaların silinmesi

Soru:
Excel dosyamın açılışında isimleri x ve y olan sayfalar haricinde sayfa varsa bu sayfaların silinmesini nasıl sağlayabilirim?

Cevap:
VBA penceresinde ThisWorkbook bölümünde aşağıdaki kodu yapıştırın

DEVAMINI OKU

Borç Takip Dosyası


Aylık sabit bir maaşla çalışıyorsanız, aldığınız maaş ve her ay rutin olarak ödenen borçlarınızda maalesef sizi takip edecektir. Her ne kadar hesaplarımızı kayıt altında tutsakda dengeyi sağlamak pek mümkün olmuyor.

Eğer sizde borçlarınızı bir excel sayfasından takip etmek istiyorsanız bu küçük dosya işinize yarayacaktır. Dosyanın yaptığı işlem basit. Sadece yeşil renkli rakamları topluyor. Siz ödediğiniz veya ödeyeceğiniz borcu yeşil yapıyorsunuz, diğer hesaplama işlemleri excel vba kodları sayesinde otomatik yapılıyor.

Modules'e yazılacak kodlar:

Function ColorSum(rngCells As Range) As Double
Application.Volatile
Dim cell As Range
ColorSum = 0 'Toplamaya kaçtan başlanacak
On Error Resume Next
For Each cell In rngCells
If cell.Font.ColorIndex = 10 Then ColorSum = ColorSum + cell.Value
Next cell
End Function

Function SumColor(rColor As Range, rSumRange As Range)

''''''''''''''''''''''''''''''''''''''
'Written by Ozgrid Business Applications
'www.ozgrid.com

'Sums cells based on a specified fill color.
'''''''''''''''''''''''''''''''''''''''
Dim rCell As Range
Dim iCol As Integer
Dim vResult

iCol = rColor.Interior.ColorIndex

For Each rCell In rSumRange
If rCell.Interior.ColorIndex = iCol Then
vResult = WorksheetFunction.Sum(rCell) + vResult
End If
Next rCell

SumColor = vResult
End Function
Function CountColor(rColor As Range, rSumRange As Range)

''''''''''''''''''''''''''''''''''''''
'Written by Ozgrid Business Applications
'www.ozgrid.com

'Counts cells based on a specified fill color.
'''''''''''''''''''''''''''''''''''''''
Dim rCell As Range
Dim iCol As Integer
Dim vResult

iCol = rColor.Interior.ColorIndex

For Each rCell In rSumRange
If rCell.Interior.ColorIndex = iCol Then
vResult = vResult + 1
End If
Next rCell

CountColor = vResult
End Function


Borç sayfasına yazılacak kodlar

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Application.ScreenUpdating = False
Calculate
'Application.ScreenUpdating = True
End Sub

Dosyayı indir
DEVAMINI OKU

Event (Olaylar)

Çalışma sayfası ve çalışma kitabı ile ilgili olaylar pdf dosyası.
Pdf formatındaki dosyayı indirmek için tıklayınız...
DEVAMINI OKU

excel Programming

Pdf formatındaki ebook'u indirmek için tıklayınız...
DEVAMINI OKU

öğrenci notları hesaplama


şeklinde öğrenci notlarını gösterem bir tablomuz olsun
Yapacağımız işlemleri liste halinde yazalım
  • 1- Endüşük Not
  • 2- Endüşük Not hangi öğrenciye ait
  • 3- Endüşük notu alan öğrenciyi ve aldığı notu rakamla ve yazıyla  birleştir formülünü  kullanarak metnin içine otomatik yazdırmak

DEVAMINI OKU
Kaydol: Kayıtlar (Atom)